% CCW adj list for vertex
function [adj_v] = adj4vert(topology, vi)
    kMax = get_num_adj_vertices();
    adj_v = zeros(1, kMax);
    
    central_vert = vi;
    tr_list = find_tr_with_verts(topology, vi);
    tr_index = tr_list(1);
    current_vert = get_other_vert_from_tr(topology(tr_index, :), central_vert);
    counter = 1;
    adj_v(counter) = current_vert;
    tr_num = size(tr_list, 2) - 1;
    for i = 1 : tr_num
        tr_indexes = find_tr_with_verts(topology, [central_vert, current_vert]);
        current_vert = get_other_vert_from_tr_CCW(topology, tr_indexes, [central_vert, current_vert]);
        counter = counter + 1;
        adj_v(counter) = current_vert;
    end % for
end % FUNCTION adj_vert
%